       ,     ,      -        .      (,  ) -     ByRef-        ( PutMem4      ).    : http://bbs.vbstreets.ru/viewtopic.php?t=36100

 . 
   DataC   Instancing=GlobalMultiUse. 
    SharedUDT  ,    .
.   DataC     (Public SharedUDT As SharedUDT),         :

ThreadClass.PTRshared = VarPtr(SharedUDT)

       . -   PTRshared       SharedUDT ( .   ThreadC  ThreadForm_ThreadLoop(ByVal Stub As Long, SharedUDT As SharedUDT)).
 -    Stub  4  (..  Long)     SharedUDT. 

             SharedUDT -       !       -  ,      .    SharedUDT   ,     ( )      (,  ,    , ..    ).   ,      .         (   ,    , ..  ).        , ,  ,           .

--------------------

          (           )   (     )     .

  = 0      (     )      1600    (  ),     ""     (    ,      ).

   ,     ,             ,      (   " " -   ,       ).